10 PRINT"[147]"TAB(12)"BASIC - BEFEHLE":P=10:FORI=0TO254:X=PEEK(41118+I)
20 IFX>128THENX=X-128:T=P:P=P+10+40*(P=40):GOTO40
30 T=0
40 PRINTCHR$(X)TAB(T);:NEXT